#!/usr/local/bin/perl

use strict;

$ENV{'ORACLE_HOME'}='/usr/local/oracle/product/8.1.7';
$ENV{'LD_LIBRARY_PATH'}='/usr/local/oracle/product/8.1.7/lib:/usr/local/oracle/product/8.1.7/lib/network/lib';
$ENV{'LIBPATH'}='/usr/local/oracle/product/8.1.7/lib';
$ENV{'TNS_ADMIN'}='/usr/local/oracle/product/8.1.7/network/admin/';
$ENV{'NLS_LANG'}='AMERICAN_AMERICA.CL8MSWIN1251';
$ENV{'ORACLE_BASE'}='/usr/local/oracle';
$ENV{'ORA_NLS33'}='/usr/local/oracle/product/8.1.7/ocommon/nls/admin/data';
$ENV{'PATH'}='/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin';

open(STATUS, '/www/ee.rbc.ru/common.ee.rbc.ru/cgi-bin/search_oracle.cgi |')||die $!;
while (<STATUS>) {
    print;
}
close STATUS;

#print 'Hi!';

